home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Unix / go4gw1.1 / g2ftphack < prev    next >
Encoding:
Text File  |  1993-04-30  |  540 b   |  31 lines
  1. #!/usr/local/bin/perl
  2.  
  3. #----------------------------------------------------------------------
  4. # variables you should change:
  5.  
  6. $FTPhost = "ashpool.micro.umn.edu";
  7. $FTPport = 70;
  8.  
  9. #----------------------------------------------------------------------
  10.  
  11. sub ftphack_main {
  12.     local($_) = @_;
  13.     
  14.     if (/^$/) {
  15.     &Greply("7Query a specific ftp site\t$Ggw\t$Ghost\t$Gport");
  16.     &Greply(".");
  17.     exit(0);
  18.     }
  19.     else {
  20.     &Greply("1Link to ftp server $_\tftp:$_@/\t$FTPhost\t$FTPport");
  21.     &Greply(".");
  22.     }
  23.     exit(0);
  24.  
  25. }
  26.  
  27.  
  28.  
  29.  
  30. 1; # for require
  31.